home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 12 C64 Telecom / CBTFIX.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  896 b   |  19 lines
  1. 10 PRINT"[147]CBTFIX   VER 1.0 "
  2. 20 PRINT"XMODEM FILE PADDING STRIPPER"
  3. 30 PRINT" (C) 1985 BY CHRISDOS"
  4. 35 POKE56,15:POKE55,255:CLR
  5. 40 INPUT"INPUT FILE NAME";I$
  6. 50 INPUT"(S)EQ OR (P)RG";TY$
  7. 60 TY$=LEFT$(TY$,1):IFTY$<>"S"ANDTY$<>"P"THEN50
  8. 70 INPUT"OUTPUT FILE NAME";O$
  9. 80 INPUT"IS THIS A BASIC FILE";BA$
  10. 90 BA$=LEFT$(BA$,1):IFBA$<>"Y"ANDBA$<>"N"THEN80
  11. 100 PRINT" W O R K I N G  -  S T A N D B Y"
  12. 110 POKE780,255:IFBA$="Y"THENPOKE780,0
  13. 120 OPEN8,8,8,I$+","+TY$+",R":IFST<>0THEN200
  14. 130 OPEN9,8,9,O$+","+TY$+",W":IFST<>0THEN200
  15. 140 SYS2688
  16. 150 IFPEEK(780)<>0THENPRINT"FILE TOO LARGE":
  17. 160 CLOSE8:CLOSE9:PRINT"D O N E[146]":STOP
  18. 200 PRINT"DISK ERROR":GOTO160
  19.